function __test_TG()

%functie de test pentru functia care aplica unui vector oarecare y transformata Gauss

%	Testul nr. 1

	x=[ 2 4 6 8 10]';
        [t x]=VecG(2,x);
	t
	x
        y=[1 2 3 4 5]'
        y=TG(y,t,2);
	printf("Noul y este:\n");
	disp(y);
%  solutie: x=[2 4 0 0 0]'; t=[0 0 1.5 2 2.5]' y=[1 2 0 0 0]';

%	Testul nr. 2

	x=[ 10 100 1000 10000]';
        [t x]=VecG(3,x);
	t
	x
        y=[1 2 3 4 5]'
        y=TG(y,t,3);
	printf("Noul y este:\n");
	disp(y);
%  solutie: x=[10 0 0 0]'; t=[0 10 100 1000]' y=[1 2 3 -26 5]';

%	Testul nr. 3

	x=[2 4 8 10]';
        [t x]=VecG(3,x);
	t
	x
	y=[1 2 3 4 5]'
	y=TG(y,t,3);
        printf("Noul y este:\n");
	disp(y);
%  solutie: x=[2 4  8 10]'; t=[0 0 0 1.25]'; y=[1 2 3 0.25 5];


endfunction
